% sql="select * from prod where 1=1"
id=request.QueryString("id")
imgprodPath="imgprod/"
if id<>"" then
sql=sql&" and articleid="&id
end if
rs.open sql,conn,1,1
if not (rs.eof or rs.bof) then
smallpicurl="images/z04.jpg"
if rs("smallpicurl")<>"" then
smallpicurl=imgprodPath&rs("smallpicurl")
end if
bigpicurl=imgprodPath&rs("bigpicurl")
prodid=rs("articleid")
prodname=rs("prodname")
if rs("specialid")<>"" and rs("specialid")>0 then
specialname=myidv2("ProdSpecial","specialid",rs("specialid"),"specialname")
end if
xinghao=rs("xinghao")
yongtu=rs("yongtu")
chandi=rs("tedian")
tedian=rs("tedian")
end if
rs.close
set rs=nothing
%>
<% =prodname %>-山东淄川三峰社会福利硅碳棒厂
<%
If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
%>
<%
dim ContentStr,Content
content=yongtu
ContentStr=split(Content,"|||")
For i=pageNum to pageNum
%>
<%=ContentStr(i) %>